home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / ac174v13.zip / R-PCCHAT.MRG < prev    next >
Text File  |  1992-10-01  |  3KB  |  58 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. *         ANSIChat (c) 1992 by Richie Molinelli
  5. * ------------[ Created 10-01-1992 20:24:31 ]------------
  6. * REPLACING old line(s) by new
  7. 100 CLEAR,,ZSizeOfStack
  8.     CALL VarInit
  9. * ------[ first line different ]------
  10.     ZANSITest = ZFalse                                               ' CHAT174
  11.     IF ZErrCode > 0 THEN _
  12.        GOTO 31
  13.     OrigUpgradeSec = ZAutoUpgradeSec
  14.     OrigMainSec = ZMinLogonSec
  15.     CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
  16.     IF OrigMsgName$ = "MESSAGES" THEN _
  17.        OrigMsgName$ = "MAIN" _
  18.     ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
  19.             OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
  20.     ConfFileName$ = OrigMsgName$
  21.     OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _
  22.               OrigMsgName$ + ".NWS"
  23.     ZNewsFileName$ = OrigNewsFileName$
  24.     IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
  25.        ZLimitMinsPerSession = VAL(ZNetTime$)
  26.     IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
  27.        ZExpectActiveModem = ZTrue : _
  28.        IF NOT ZKeepInitBaud THEN _
  29.           ZModemInitBaud$ = ZNetBaud$
  30.     IF ZFossil THEN _
  31.        ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
  32.        IF ZComPort < 0 THEN _
  33.           GOTO 108 _
  34.        ELSE CALL FOSinit(ZComPort,Result) : _
  35.             IF Result = -1 THEN _
  36.                ZSnoop = ZTrue : _
  37.                CALL PScrn("ERROR INITIALIZING FOSSIL") : _
  38.                GOTO 204
  39. * REPLACING old line(s) by new
  40. 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
  41. * ------[ first line different ]------
  42.      ZPageStatus$ = ""
  43. * REPLACING old line(s) by new
  44. * ------[ first line different ]------
  45. 4770 IF (ZANSITest = ZTrue OR ZWasGR > 1) AND ZDosANSI THEN _        ' CHAT174
  46.         CALL SysopChat (2) _                                         ' CHAT174
  47.      ELSE _                                                          ' CHAT174
  48.         CALL QuickTPut1 ("SysOp in!  " + _                           ' CHAT174
  49.              ZFirstName$ + ", this is " + _                          ' CHAT174
  50.              ZSysopFullName$ + ", go ahead!") : _                    ' CHAT174
  51.              CALL SysopChat (1)                                      ' CHAT174
  52.      IF ZSubParm < 0 THEN _
  53.         GOTO 202
  54.      RETURN
  55. '
  56. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***
  57. '
  58.